home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / Tracker / AYS-T100.LHA / THX-Example Player.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-09-02  |  2.4 KB  |  77 lines
  1. ;-------------------T-----------T-----------------T---------T---------------
  2.  
  3. ;=============================================================================
  4. ;=============================================================================
  5. ;===================== t h x - s o u n d   s y s t e m =======================
  6. ;=============================================================================
  7. ;=================== r e p l a y e r - t e s t   c o d e =====================
  8. ;=============================================================================
  9. ;=============================================================================
  10. ;========================= v e r s i o n   1 . 0 0 ===========================
  11. ;=============================================================================
  12. ;=============================================================================
  13.  
  14.     IncDIR    ""
  15.     Include    "THX-Tracker Offsets.I"
  16.  
  17. ;---- (c) Dexter/Abyss! in July 1996. I do NOT take any responsibility!
  18.  
  19.     Section    thx\Example\Replay\by\Dexter\of\Abyss,Code
  20.  
  21. Start    movem.l    d1-d7/a0-a6,-(sp)
  22.  
  23. .OpenGraphicsLib    move.l    4.w,a6
  24.     moveq    #0,d0
  25.     lea    GfxName,a1
  26.     jsr    -$228(a6)    ;_LVOOpenLibrary(a6)
  27.     move.l    d0,GfxBase
  28.  
  29. .InitPlayer    sub.l    a0,a0    ;auto-allocate public (fast)
  30.     sub.l    a1,a1    ;auto-allocate chip
  31.     jsr    thxReplayer+thxInitPlayer
  32.  
  33. .InitModule    lea    thxTestModule,a0
  34.     jsr    thxReplayer+thxInitModule
  35.  
  36. .InitSubSong    moveq    #0,d0    ;Subsong #0 = Mainsong
  37.     moveq    #0,d1    ;Play immediately
  38.     jsr    thxReplayer+thxInitSubSong
  39.  
  40. PlayLoop
  41. .DoEASYFrameTiming    move.l    GfxBase,a6
  42.     jsr    -$10e(a6)    ;_LVOWaitTOF(a6)
  43.  
  44. ; WaitTOF bugs when Enforcer's running and you're starting from ASM-One !!
  45. ; (also without the replay if you have only openlib/waittof/closelib.. 
  46. ; Replayer workz!! - workz from dos fine, too, even with Enforcer!
  47. ; IT IS NOT REPLAYER'S FAULT WHEN USING EMBEDDER (TRY FROM CLI, WORKZ THEN!)
  48.  
  49. .DoMusic    jsr    thxReplayer+thxInterrupt
  50. .CheckMouse    btst    #6,$bfe001
  51.     bne.b    PlayLoop
  52.  
  53.  
  54. .StopSong    jsr    thxReplayer+thxStopSong
  55.  
  56. .KillPlayer    jsr    thxReplayer+thxKillPlayer    ;totally neccessary!!
  57.  
  58. .CloseGraphicsLib    move.l    $4.w,a6
  59.     move.l    GfxBase,a1
  60.     jsr    -$19e(a6)    ;_LVOCloseLibrary(a6)
  61.  
  62.     movem.l    (sp)+,d1-d7/a0-a6
  63.     moveq    #0,d0
  64.     RTS
  65.  
  66.  
  67.     Section    thx\Data\Section\by\Dexter\of\Abyss,Data
  68.  
  69. GfxName    dc.b    "graphics.library",0,0
  70. GfxBase    ds.l    1
  71. thxReplayer    IncBIN    "THX-Replayer.BIN"
  72. thxTestModule    IncBIN    "THX.Rob's Vorne-Gelb Hinten-Braun Unterhos'n"
  73.     even
  74.  
  75. ;---- thxTunes may be of odd length! take care!
  76.  
  77.